home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / crtplu.zip / CRTPLUS.DOC < prev    next >
Text File  |  1993-01-04  |  7KB  |  172 lines
  1.                        CrtPlus Unit Revision 1.0
  2.                            Shareware Release
  3.                               April 1991
  4.  
  5. Turbo Pascal is a registered trademark of Borland International, Inc.
  6.  
  7. (c) Copyright 1991  Modern Solutions.  All rights reserved.
  8.  
  9. Modern Solutions  P.O. Box 55721, Hayward, California 94545
  10.  
  11. INTRODUCTION
  12. ************
  13.  
  14. SHAREWARE
  15. *********
  16.  
  17.     CrtPlus has been released under shareware concepts.  This enables users
  18. of Turbo Pascal to use CrtPlus within their software without any initial
  19. cost incurred.
  20.  
  21.     Shareware software is not considered free.  You are, however, encouraged
  22. to use this software as often as you like.  Once you are satisfied with the
  23. product and its capabilities, it is recommended that the program is registered.
  24. Registration entitles users to an official registered copy of the CrtPlus
  25. unit and the accompanying documentation.  Registered users also will be kept
  26. up to date on latest releases and updates and are entitled to using Modern
  27. Solution's software support line.
  28.  
  29.     Once registered, the registered user is entitled to use CrtPlus as often
  30. as he or she likes within their programs, whether commerical or not, as long as
  31. it is not distributed as a 'stand alone' product.
  32.  
  33.     To register the CrtPlus unit, send a check or money order for $25.00 +
  34. $2.50 ( Shipping & Handling ) with the registration form. ( No C.O.D. please. )
  35.  
  36.     The registration form is included with the CrtPlus unit files.
  37. To print the registration form, run the REGISTER batch file from the DOS
  38. prompt. ( For more information on running batch files, see your DOS manual. )
  39.  
  40. DISCLAIMER
  41. **********
  42.  
  43.     Modern Solutions makes no warranties, neither expressed nor implied
  44. pertaining to this software.  If you choose to use this software, you do
  45. so at your own risk, and Modern Solutions is not obligated for any personal
  46. loss incurred by the usage of this software.
  47.  
  48.     Permission is hereby granted to distribute this software under shareware
  49. concepts as long as this documentation accompanies it.  This software may not
  50. be distributed for profit other than the single-disk asking price of a
  51. shareware distributor used to cover duplication and distribution costs, not to
  52. exceed $10 under any circumstances.  Modern Solutions reserves all rights to
  53. the software and accompanying documentation.
  54.  
  55. CRTPLUS
  56. *******
  57.  
  58.     CrtPlus is a collection of routines for Turbo Pascal alphanumeric
  59. programmers that cannot be accomplished with the CRT unit or calls to
  60. IBM BIOS or MS-DOS interrupts nor are they found in typical alphanumeric
  61. toolboxes.  Routines are written primarily in PC Assembly Language for
  62. maximum performance.
  63.  
  64. THE CRTPLUS UNIT
  65. *****************
  66.  
  67. function CGApresent:boolean;
  68.  
  69.         Returns the TRUE if a CGA compatible video adapter is available.
  70.  
  71. function MDApresent:boolean;
  72.  
  73.         Returns the TRUE if a MDA compatible video adapter is available.
  74.  
  75. function EGApresent:boolean;
  76.  
  77.         Returns the TRUE if an EGA compatible video adapter is available.
  78.  
  79. procedure Crt80x43;
  80.  
  81.         Creates a DOS compatible 80x43 alphanumeric video mode.  The system
  82. must have an EGA compatible video adapter.
  83.  
  84. procedure Crt80x50;
  85.  
  86.         Creates a DOS compatible 80x50 alphanumeric video mode.  The system
  87.         must have a VGA compatible video adapter.
  88.  
  89. procedure BlinkingOff;
  90.  
  91.         Disables all blinking within alphanumeric modes.  Unlike interrupt
  92.         calls, this routine will disable CGA and MDA blinking as well to
  93.         produce a total of 16 foreground and 16 background colors in all
  94.         video systems.
  95.  
  96. procedure BlinkingOn;
  97.  
  98.         Enables blinking within alphanumeric modes.  Unlike interrupt
  99.         calls, this routine will enable CGA and MDA blinking to restore
  100.         all video systems to their normal foreground and background colors.
  101.  
  102. procedure BlockFill(x1,y1,x2,y2,fc,bc,ascii:integer);
  103.  
  104.         Fills a square in the video buffer from x1,y1 to x2,y2 with the
  105.         colors fc and bc with the common character specified by the variable
  106.         ascii.  BlockFill is useful for high speed windowing and other
  107.         alphanumeric screen techniques.
  108.  
  109.         BlockFill requires the global typed constant VIDEOSEGMENT to be
  110.         set to the beginning of the alphanumeric video buffer.  By default,
  111.         VIDEOSEGMENT is set to $B800 which is the appropriate value for all
  112.         video adapters except MDA compatible adapters.  MDA compatible
  113.         adapters use the value $B000.
  114.  
  115.            To change this value simply type :
  116.  
  117.                 videosegment:=$b000;
  118.  
  119. procedure BlockColor(x1,y1,x2,y2,fc,bc:inte`ger);
  120.  
  121.         Changes the color of a square in the video buffer from x1,y1 to
  122.         x2,y2 to the colors specified by fc and bc.  BlockColor is useful
  123.         for highlighting items of the alphanumeric screen.
  124.  
  125.         BlockColor requires the global typed constant VIDEOSEGMENT to be
  126.         set to the beginning of the alphanumeric video buffer.  By default,
  127.         VIDEOSEGMENT is set to $B800 which is the appropriate value for all
  128.         video adapters except MDA compatible adapters.  MDA compatible
  129.         adapters use the value $B000.
  130.  
  131.            To change this value simply type :
  132.  
  133.                 videosegment:=$b000;
  134.  
  135. procedure BlockCopy(x1,y1,x2,y2,x3,y3:integer);
  136.  
  137.         BlockCopy copies a block of video from x1,y1 to x2,y2 to another
  138.         location in the video buffer specified by x3,y3.  Unlike similar
  139.         offerings, BlockCopy is direction independent, meaning that it
  140.         will not overwrite the source block when creating the destination
  141.         block within the video buffer.
  142.  
  143.         BlockCopy requires the global typed constant VIDEOSEGMENT to be
  144.         set to the beginning of the alphanumeric video buffer.  By default,
  145.         VIDEOSEGMENT is set to $B800 which is the appropriate value for all
  146.         video adapters except MDA compatible adapters.  MDA compatible
  147.         adapters use the value $B000.
  148.  
  149.            To change this value simply type :
  150.  
  151.                 videosegment:=$b000;
  152.  
  153. CONTACT
  154. *******
  155.  
  156.     Modern Solutions can be contacted through the following sources :
  157.  
  158.         Compuserve
  159.           Borland International Turbo Pascal Forum
  160.           User Name : Allen Drennan ( Modern Solution's Representative )
  161.           User Identification : 76130,3112
  162.  
  163.         TurboCity BBS   (209) 599-7435   Ripon, California
  164.           The Best Turbo Pascal BBS in the World.
  165.           User Name : Allen Drennan ( Modern Solution's Representative )
  166.           Fido 1:208/2
  167.  
  168.         Modern Solutions
  169.         P.O. Box 55721
  170.         Hayward, CA  94545
  171.  
  172.